home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1991 July & August / rerun-1991-07-08.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  75 lines
  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>16 then n$(i)=left$(n$(i),15)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 280 getm$:ifm$=""then 280
  28. 290 ifm$<"a"orm$>chr$(64+f)then280
  29. 300 p=asc(m$)-64:print"[147]"
  30. 310 if d$(p)<>"run" then 340
  31. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  32. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  33. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  34. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  35. 360 a$=d$(p)
  36. 370 a$=a$+chr$(13)
  37. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  38. 390 new
  39. 400 poke 53280,0:poke 53281,0
  40. 410 ov=peek(53265)
  41. 420 poke 53265,peek(53265)and 247
  42. 430 poke 53265,(peek(53265)and248)+7
  43. 440 pr$="[209][165]                                    [167][209]"
  44. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  45. 460 md$="[209][165][194]                                  [194][167][209]"
  46. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  47. 480 hd$="  july/august 1991 rerun
  48. 490 [153]"load";
  49. 500 [153] tp$;:[141] 590
  50. 510 [129] i[178]1 [164] 2:[153] md$;:[141] 590:[130]
  51. 520 [153]"on";hd$;:[141] 590
  52. 530 [153]:[153]"on";
  53. 540 [129] i[178]1 [164] 1:[153] md$;:[141] 590:[130]
  54. 550 [153] bt$;:[141] 590
  55. 560 [129] i[178]1 [164] 19:[153] pr$;:[141] 590:[130]
  56. 570 [151] 53265,27
  57. 580 [142]
  58. 590 [143] sound routine here
  59. 600 [151] v[170]23,15:[151] v[170]4,9:[151] v[170]5,0:[151] v,1:[151] v[170]3,32:[151] v[170]3,33
  60. 610 [142]
  61. 1000 [143] file list
  62. 1010 [143] first entry is the number of programs on this disk
  63. 1020 [143] followed by each filename
  64. 1030 [143] second data item is run or sysxxxxx
  65. 1040 [143] run if file is basic and sys xxxxx if ml
  66. 1050 [131] 7
  67. 1055 [131] fuel compare,run
  68. 1060 [131] road test 64,run
  69. 1065 [131] function keys,run
  70. 1070 [131] movie phile 64,run
  71. 1080 [131] disk copy 64,run
  72. 1090 [131] math matcher,run
  73. 1130 [131] "cmdcmdcmdcmd    "
  74. 1140 [131] "cmdcmdcmdcmd  "
  75.